home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 013a / mexlas.zip / TXSHADE.PRG < prev   
Text File  |  1991-09-01  |  2KB  |  64 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXSHADE.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. txinit(_print_port)
  12. txreset()
  13. txpagesize("letter")
  14. txorient("P")
  15. txsetlpi(6)
  16.  
  17. txcolbox(01, 20, 10, 07, 1,  2)
  18. txcolprint(09, 22, .f., "1-5 %")
  19. txcolbox(01, 50, 10, 07, 1, 10)
  20. txcolprint(09, 50, .f., "5-10 %")
  21.  
  22. txcolbox(15, 20, 10, 07, 1, 20)
  23. txcolprint(23, 20, .f., "11-20 %")
  24. txcolbox(15, 50, 10, 07, 1, 30)
  25. txcolprint(23, 50, .f., "21-30 %")
  26.  
  27. txcolbox(29, 20, 10, 07, 1, 30)
  28. txcolprint(37, 20, .f., "21-30 %")
  29. txcolbox(29, 50, 10, 07, 1, 40)
  30. txcolprint(37, 50, .f., "31-40 %")
  31.  
  32. txcolbox(43, 20, 10, 07, 1, 50)
  33. txcolprint(52, 20, .f., "41-50 %")
  34. txcolbox(43, 50, 10, 07, 1, 60)
  35. txcolprint(52, 50, .f., "51-60 %")
  36.  
  37. txcolprint(58, 25, .t., "Gray Shading Levels Page 1")
  38.  
  39. txpsource(0)                     && force print and page eject
  40.  
  41. txcolbox(01, 20, 10, 07, 1, 70)
  42. txcolprint(09, 20, .f., "61-70 %")
  43. txcolbox(01, 50, 10, 07, 1, 75)
  44. txcolprint(09, 50, .f., "71-75 %")
  45.  
  46. txcolbox(15, 20, 10, 07, 1, 80)
  47. txcolprint(23, 20, .f., "76-80 %")
  48. txcolbox(15, 50, 10, 07, 1, 85)
  49. txcolprint(23, 50, .f., "81-85 %")
  50.  
  51. txcolbox(29, 20, 10, 07, 1, 90)
  52. txcolprint(37, 20, .f., "86-90 %")
  53. txcolbox(29, 50, 10, 07, 1, 95)
  54. txcolprint(37, 50, .f., "91-95 %")
  55.  
  56. txcolbox(43, 20, 10, 07, 1, 100)
  57. txcolprint(52, 20, .f., "100 %")
  58.  
  59. txcolprint(58, 25, .t., "Gray Shading Levels Page 2")
  60.  
  61. txclear()
  62.  
  63. *: EOF: TXSHADE.PRG
  64.